1680 REM--- UNTERPROGRAMME ZUR VERWALTUNG VON RELATIVEN DATEIEN ----------------
1690 REM--- (W) 1985 BY MARTIN HECHT,STGT --------------------------------------
1700 :
1710 :
1720 :
1730 REM--- OEFFNEN EINER RELATIVEN DATEI --------------------------------------
1740 :
1750 REM  LF = LOGISCHE FILENUMMER
1760 REM  SA = SEKUNDAERADRESSE
1770 REM  DN$= DATEINAME
1780 REM  RL = RECORDLAENGE
1790 :
1800 OPEN 15,8,15:REM FLOPPY-KOMMANDOKANAL OEFFNEN
1810 OPEN LF,8,SA,DN$+",L,"+CHR$(RL):REM DATEI OEFFNEN
1820 :
1830 RETURN
1840 :
1850 :
1860 :
1870 REM--- POSITIONIEREN AUF EINEN RECORD -------------------------------------
1880 :
1890 REM  SA = SEKUNDAERADRESSE
1900 REM  RN = RECORDNUMMER
1910 REM  RP = POSITION INNERHALB DES RECORDS
1920 :
1930 HB=INT(RN/256):LB=RN-256*HB:REM RECORDNUMMER IN LOW/HIGH AUFTEILEN
1940 PRINT#15,"P"+CHR$(SA)+CHR$(LB)+CHR$(HB)+CHR$(RP)
1950 :
1960 RETURN
1970 :
1980 :
1990 :
2000 REM--- SCHLIESSEN EINER (RELATIVEN) DATEI ---------------------------------
2010 :
2020 REM  LF = LOGISCHE FILENUMMER
2030 :
2040 CLOSE LF:REM RELATIVE DATEI SCHLIESSEN
2050 CLOSE 15:REM FLOPPY-FEHLERKANAL SCHLIESSEN
2060 :
2070 RETURN